home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / APPLTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1994-01-23  |  1.3 KB  |  51 lines
  1. DEFINITION MODULE ApplTool;
  2.  
  3. (*
  4. Application Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM PORTAB IMPORT UNSIGNEDWORD;
  12.  
  13. (*
  14. Type = 0: Out1 = font height of the normal AES font
  15.           Out2 = font id
  16.           Out3 = type of font:
  17.                    0 = system font
  18.                    1 = FSM-GDOS font
  19.                  >=2 = reserved
  20.  
  21. Type = 1: Out1 = font height of the small AES font
  22.           Out2 = font id
  23.           Out3 = type of font:
  24.                    0 = system font
  25.                    1 = FSM-GDOS font
  26.                  >=2 = reserved
  27.  
  28. Type = 2: Out1 = current screen resolution
  29.           Out2 = number of colors supported by the AES
  30.           Out3 = supporting color icons yes/no
  31.           Out4 = new resource file formta yes/no
  32.  
  33. Type = 3: Out1 = language:
  34.                    0 = english
  35.                    1 = german
  36.                    2 = french
  37.                    3 = spanish
  38.                    4 = italian
  39.                    5 = swedish
  40.  
  41. caution: full information only since AES version 4.0
  42. *)
  43.  
  44. PROCEDURE ApplGetInfo(    Type: UNSIGNEDWORD;
  45.                       VAR Out1: UNSIGNEDWORD;
  46.                       VAR Out2: UNSIGNEDWORD;
  47.                       VAR Out3: UNSIGNEDWORD;
  48.                       VAR Out4: UNSIGNEDWORD);
  49.  
  50. END ApplTool.
  51.